home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #15
/
Monster Media Number 15 (Monster Media)(July 1996).ISO
/
tbbs
/
prgsourc.zip
/
HOMES.ZIP
/
AGENT.PRG
next >
Wrap
Text File
|
1996-01-14
|
3KB
|
176 lines
PROCEDURE pagnt
DO agn
PRIVATE page
IF Len(agnt) > 15
page = 15
ELSE
page = Len(agnt)
ENDIF
SET COLOR TO GR+/R
@ 21,0 CLEAR TO 23,79
@ 21,5 SAY "Up/Dn Arrow "
@ 22,5 SAY "<Enter> "
SET COLOR TO W+/R
@ 21,17 SAY "= Move within pick list"
@ 22,13 SAY "= Select from pick list"
SET COLOR TO BG/BG
@ 3,45 CLEAR TO page+4,74
SET COLOR TO N/BG
@ 3,45 TO page+4,74
x = 1
y = 4
DO WHILE x <= Len(agnt) .AND. y <= 18
@ y,47 SAY agnt[x]
x = x + 1
y = y + 1
ENDDO
SET COLOR TO GR+/BG
@ 4,47 SAY agnt[1]
x = 1
y = 4
SET COLOR TO N/N
@ 2,0 GET charin
DO WHILE .T.
READ
DO CASE
CASE LastKey() = 5 && <Up Arrow>
IF x = 1
LOOP
ENDIF
SET COLOR TO N/BG
IF y = 4
x = x - 1
DO WHILE y <= 18
@ y,47 SAY agnt[x]
x = x + 1
y = y + 1
ENDDO
x = x - page
y = 4
ELSE
@ y,47 SAY agnt[x]
x = x - 1
y = y - 1
ENDIF
SET COLOR TO GR+/BG
@ y,47 SAY agnt[x]
LOOP
CASE LastKey() = 13 && <Enter>
SELECT a
brok = agnt[x]
DO cls WITH 3,45,page+4,74
EXIT
CASE LastKey() = 24 && <Dn Arrow>
IF x = Len(agnt)
LOOP
ENDIF
SET COLOR TO N/BG
IF y = 18
x = x - page + 2
y = 4
DO WHILE x < Len(agnt) .AND. y < 18
@ y,47 SAY agnt[x]
x = x + 1
y = y + 1
ENDDO
ELSE
@ y,47 SAY agnt[x]
x = x + 1
y = y + 1
ENDIF
SET COLOR TO GR+/BG
@ y,47 SAY agnt[x]
LOOP
ENDCASE
ENDDO
RETURN
PROCEDURE atag
PRIVATE cnt
DO agn
SELECT a
COUNT TO cnt
GOTO TOP
x = 1
z = 1
DO WHILE x <= 50 .AND. z <= Len(agnt)
GOTO TOP
y = 0
DO WHILE x <= 50
IF broker = agnt[z]
dummy = aIns(tarray,1)
tarray[1] = pic1
x = x + 1
ENDIF
y = y + 1
IF y < cnt
SKIP
ELSE
EXIT
ENDIF
ENDDO
z = z + 1
ENDDO
IF x = 50 .AND. y < cnt .AND. z < Len(agnt)
DO BoxW WITH 5,16,9,62
@ 6,18 SAY "The VIEW command is limited to 50 listings."
@ 7,18 SAY "To view the listings for the entire agency,"
@ 8,18 SAY "view each broker's listings separately."
key = InKey(4)
ENDIF
RETURN
PROCEDURE agn
SELECT c
PRIVATE cnt
COUNT TO cnt FOR agency = comp && number of realtors in this agency
GOTO TOP
PUBLIC cq
cq = cnt
PUBLIC agnt[cq]
COUNT TO cnt
GOTO TOP
y = 1
x = 1
DO WHILE y < cnt
IF agency = comp
agnt[x] = uname
x = x + 1
ENDIF
y = y + 1
SKIP
ENDDO
IF agency = comp
agnt[x] = uname
ENDIF
RETURN